program s(input,output);
{$U+}
var
   f,m,p,h : real;
   t,n,x,k : integer;
   choice  : char;

begin
 repeat
   graphmode;
   write('FREQ  -->  ');
   readln(f);writeln;
   write('MAG   -->  ');
   readln(m);
   x := 1;
   for  t := 1 to 300 do
      begin
        if (t mod x = 0) then
         begin
           h:= m*sin( f*t);
           DRAW(T,100,T,TRUNC(H)+100,1);
         end;
      end;
   repeat until keypressed;
   clrscr;
   writeln;
   writeln(' WANT TO CONTINUE (Y/N)  ');
   readln(choice);
   choice := upcase(choice);
 until (choice = 'N');
end.
